home *** CD-ROM | disk | FTP | other *** search
/ What PC? 2000 May / What PC May 2000 / wpcmay00.iso / SOFTWARE / UTILITY / vvho52uk / VIAVOICE.Z / currency.bnf < prev    next >
Text File  |  1998-08-24  |  4KB  |  123 lines
  1. ;; ========= currencies ============
  2. <currency> = <currnumbers> <currcur_big> <currtwo-digit-number>? |
  3.              <currnumbers> <currcur_big> and:"dollars_?" <currcur_small> |
  4.              <currcur_small> 
  5.            .
  6.  
  7. <currcur_big> =     pound:"dollars_$."     |
  8.                 pounds:"dollars_$."     |
  9.             euro:"dollars_$."        |
  10.             euros:"dollars_$."
  11.             .
  12.         
  13.  
  14. <currcur_small> = <currtwo-digit-number> pence:"dollars_%." |
  15.                   <currone> penny:"dollars_%."             |
  16.             <currtwo-digit-number> cents:"dollars_%." |
  17.                   <currone> cent:"dollars_%."             |
  18.             .
  19.  
  20. ;; ========= numbers <curr0.xxx - 999.999.999.xxx> ==========
  21.  
  22. <currnumbers> = <currnum> <currdigit-string>? .
  23.  
  24. <currnum> =   <currzero> |
  25.           <currtens-hundred> |
  26.           <currseven-to-nine-digit-number> .
  27.  
  28. <currtwo-digit-number> =   <currnon-zero-digit> |
  29.                        <currteens> |
  30.                        <currten>  |
  31.                        <currtens> <currnon-zero-digit>? .
  32.  
  33. <currhundred-bit> =   <currnon-zero-digit> <currhundred> |
  34.                   <currone> <currhundred> .
  35.  
  36. <currother-two-digits> = <currconj>? <currtwo-digit-number> .
  37.  
  38. <currtens-hundred> =   <currteens-hundred> |
  39.                    <currtens> <currnon-zero-digit> <currhundred> <currother-two-digits>? .
  40.  
  41. <currteens-hundred> = <currteens> <currhundred> <currother-two-digits>? .
  42.  
  43. <currthree-digit-number> =   <currtwo-digit-number> |
  44.                          <currhundred-bit> <currother-two-digits>? .
  45.  
  46. <currfour-to-six-digit-number> =   <currthree-digit-number> <currthousand>? |
  47.                                <currthree-digit-number> <currthousand> <currthree-digit-number> |
  48.                                <currthree-digit-number> <currthousand> <currother-two-digits> .
  49.  
  50. <currseven-to-nine-digit-number> =   <currfour-to-six-digit-number> |
  51.                                  <currthree-digit-number> <currmillion> |
  52.                                  <currthree-digit-number> <currmillion> <currfour-to-six-digit-number> |
  53.                                  <currthree-digit-number> <currmillion> <currother-two-digits> .
  54.  
  55. <currdigit-string> =   <currpoint> <currzero> |
  56.                    <currpoint> <currdigit-bit-with-oh> |
  57.                    <currpoint> <currdigit-bit-with-zero> .
  58.  
  59. <currdigit-bit-with-oh> =   <currdigit-with-oh>+ <currnon-zero-digit>  |
  60.                         <currnon-zero-digit> .
  61.  
  62. <currdigit-bit-with-zero> =   <currdigit-with-zero>+ <currnon-zero-digit> |
  63.                           <currnon-zero-digit> .
  64.  
  65. <currone> =   a:"dollars_1" |
  66.           one:"dollars_1" .
  67.  
  68. <currzero> =   zero:"dollars_0" |
  69.            oh:"dollars_0" |
  70.            nought:"dollars_0" .
  71.  
  72. <currconj> = and:"dollars_?" .
  73.  
  74. <currpoint> = point:"dollars_." .
  75.  
  76. <currnon-zero-digit> =   one:"dollars_1" |
  77.                      two:"dollars_2" |
  78.                      three:"dollars_3" |
  79.                      four:"dollars_4" |
  80.                      five:"dollars_5" |
  81.                      six:"dollars_6" |
  82.                      seven:"dollars_7" |
  83.                      eight:"dollars_8" |
  84.                      nine:"dollars_9" .
  85.  
  86.  
  87. <currdigit-with-oh> =   oh:"dollars_0" |
  88.                     <currnon-zero-digit> .
  89.  
  90. <currdigit-with-zero> =   zero:"dollars_0" |
  91.                       <currnon-zero-digit> .
  92.  
  93. <currteens> =   eleven:"dollars_11" |
  94.             twelve:"dollars_12" |
  95.             thirteen:"dollars_13" |
  96.             fourteen:"dollars_14" |
  97.             fifteen:"dollars_15" |
  98.             sixteen:"dollars_16" |
  99.             seventeen:"dollars_17" |
  100.             eighteen:"dollars_18" |
  101.             nineteen:"dollars_19" .
  102.  
  103. <currten> = ten:"dollars_10" .
  104.  
  105. <currtens> =   twenty:"dollars_20" |
  106.            thirty:"dollars_30" |
  107.            forty:"dollars_40" |
  108.            fifty:"dollars_50" |
  109.            sixty:"dollars_60" |
  110.            seventy:"dollars_70" |
  111.            eighty:"dollars_80" |
  112.            ninety:"dollars_90" .
  113.  
  114. <currhundred> = hundred:"dollars_x100" .
  115.  
  116. <currthousand> = thousand:"dollars_x1000_)" .
  117.  
  118. <currmillion> = million:"dollars_x1000000_)" .
  119.  
  120. //NMC:VISIBLE
  121. ;; the above command is for the nav-macro-editor
  122.  
  123.